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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


-* ® 
** ® 
& a 
:® te 
*® & 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
fs ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
© OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY * 
:® TRANSFERRED. . 
** ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. . 
® ® 
*® * 
*® ® 
** te 
'* ca 
:* * 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; Facility: RMS32 

Abstract: 

: This module provides sequential file organization 
; specific processing for the $put function. 


. ; Environment: 


Star processor running Starlet exec. 
; Author: L. F. Laverdure Creation Date: 17-FEB-1977 
: ; Modified By: 
V03-002 RASO280 Ron Schaefer 27-Mar-1984 
Eliminate call to RMSCHKEOF1 by doing the check inline. 
Eliminate some spurious branches as well. 
v03-001 KBT0143 Keith B. Thompson 20-Aug-1982 
Reorganize psects 
v02-016 CDS0001 C Saether 9-Nov-1981 
Change brw to jmp to fix broken branch. 
v02-015 REFORMAT K. E. Kinnear 31-Jul-1980 9:01 
v01-014 PSK0012 P. S$. Knibbe }é-Feb= 1980 11:30 
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Put to a block foreign device sets eof bit. Put 
to a device with tpt and truncate access sets eof bit. 
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Miscellaneous clean-up As re to 
Add code to support network access by key. 
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-SBTTL RMSPUT1 = HIGH LEVEL SEQUENTIAL S$PUT 
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++ 
RM$PUT1 == High Level Sequential S$PUT. 
This module performs the following functions: 
1. Calls rm$putsetup! to perform various setups. 
2. Initializes the current record size to zero. 
3. Verifies that rac = sequential or key (if rfm=fix). 
4. If device is unit record calls RMSPUT_UNIT_REC. 
Otherwise, verifies positioning at eo 
and calls RMSPUT_BLK_DEV unless rac=key in which case calls 
RMSUPDATE_ALT. 
Calling Sequence: 
Entered via case branch from RMS$PUT at RMS$PUT1. 
Input Parameters: 


R11 joeure area address 
R10 IFAB addr 
RS IRAB addr 
R8 rab addr 


Implicit Inputs: 
The contents of the rab and related IRAB and IFAB. 
Output Parameters: 


R7 thru R1 destroyed 
RO status 


Implicit Outputs: 
Various fields of the rab are filled in to reflect 
the status of the operation (see functional spec 
for details). 
The IRAB is similarly updated. 


Completion Codes: 


OOOCCOCOCOCOOCOOCOCOOCOOCOOCOOOOCSOOOCOOCOOOCOOSOOOOOOOOOOOOOOOOOO 
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Standard rms (see functional spec). 
Side Effects: 
none 
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any SEQUENTIAL SPECIFIC PUT 16-SEP-1984 0:38:33 AX/VMS Macro v04-00 Page 
v04- RMSPUT1 = HIGH LEVEL SEQUENTIAL $PUT -SEP-1984 16:25: RMS.SRCIRMIPUT.MAR; 1 
1 ¢ RMSPUT1:: 
1 STSTPT PUT 
FFF7" 30 154 BSBW RMSPUTSETUP1 ; perform various put setups 
62 ADs BG 155 CLRW IRBSW_CSIZ(R9) 3 indicate no current record 
6D 50 =E9 ; ! § BLBC RO, ERROR 
ey 3 
0 ; 133 ; Verify that record access mode is sequential. 
BS & 
it 196 ASSUME RABSC_SEQ EQ 0 
1E Ab’ 95 Sor 184 TSTB RABS$B_RAC(R8) 
21 12 Baie 192 BNEQ CHKRRA 
Bate 167 ASSUME DEV$V_REC EQ 0 
1B 6A «EB Bots 198 BLBS IFBSL_PRIM_DEV(R10) ,DAPDEV ; branch if unit record device 
0017 +171; 
Baie 176 ; Sequential $PUT to a block device: must be positioned at eof. 
BF 1 auc 
14 69 EO 0017 1% " BBS #IRBSV_EOF,(R9) ,PUTBLK1 ; branch if already eof 
74 AA 40 AD 1 0018 17 CMPL = IRBSL_NRP_VBN(R9) ,IFBSL_EBK(R10) ; at eof? 
> 8 178 BLSSU  ERRNEF ; branch if not yet 
1A 0022 179 BGTRU PUTBLK : branch if definitel 
0024 180 ; in current eof bloc 
5SC_AA 44 49 B1 0024 181 CMPW IRBSW_NRP_OFF(R9),IFBSW_FFB(RI0) ; how about byte position? 
54 1F 0029 186 BLSSU  ERRNE 3; nope - not there yet 
+ ? 137 PUTBLK: SSB #IRBSV_EOF , (R9) ; eof - set the flag 
09 F 188 PUTBLK1: 
FFCE’ 31 OO2F 186 BRW RMSPUT_BLK_DEV ; do the put 
ae! 
03 137 + $PUT to a unit record device. 
$35 joy: 
FFCB' 31 003 198 DAPDEV: BRW RMSPUT_UNIT_REC 
Oo8S 194 
83 195 : Code to perform random mode $PUT by relative record #. 
138 
6 : 138 CHKRRN: 
F9 6A =3E~ £0 19 BBS #1FBSV_DAP,(R10) ,DAPDEV ; branch if network operation 
1€ ag 91 9 200 CMPB = RABS$B_RAC(R8) ,ARABSC_KEY: keyed access? 
5 12 D 1 BNEQ ERRRAC 3; no - it's a problem 
3 6A 1C €1 F ¢ BBC #DEVSV_RND, IFBSL_PRIM_DEV(R10),ERRRAC; branch if not disk 
0 6A 2D 58 23 BBS #1FB$V"-SQ0,(R10)[ERRSGO ; branch if sqo set 
FF " 4 4 BSBW RMSSEQREY 3 convert rrn to rfa 
2F bg 4A 5 BLBC RO, ERROR : get out on errors 
146 68 24 EO 40 e BBS #RABSV ULF +ROP (R8),10$ : Branch if put anywhere is ok 
10 6A 18 E 51 0 BBS #DEVSV"FOR rege PRIM DEV(R10),10$; branch if foreign device 
74 AA 10 AB D1 0055 8 CMPL RABSW_RFA(RB), IFBSL_EBK(R10); check for attempt to put 


RMIPUT SEQUENTIAL SPECIFIC PUT 16-SEP-1984 00: AX/VMS Macro V04-00 Page 6 RM 
FO4e 800 RMSPUT1 = HIGH LEVEL SEQUENTIAL $PUT -SEP-1 1382 9° 3g: % RMS.SRCIR RMI PUT.MAR; 1 ° (4) v04 
A 09 “9nd eof 
3 1F A 10 BLSSU RRNEF 1 : branch f before eof (error) 
1A C 11 BGTRU ranc h_ if beyon 
5C AA 14 AB) Bl 1 CMPW RABSW mracecne),2Fesu.rrbcr ); in eof blk = check offset 
A iF 6 1 BLSSU ERRNEF1 : branch if before eof 
62 Ad 6 Be 6 14 108: MOVW R6, IRBSW_CSIZ(R9) : +. current record size 
51 § 39? 15 MOVL store record size 
48 A910 A D 6¢ 16 MOVO RABSW_RFA(RB) IRBSL_ RP _VBN(R9) : set rp from rfa 
4E AY Bs 071 21 CLRW  IRBSL-RP_OFF+2(R9) ; insure valid Long word offset 
FF89" 31 0074 18 BRwW RMSUPBATE_ALT ; go do the random put 


eee EEE 


ee 
SEQUENTIAL SPECIFIC PUT 16-SEP-1984 0:38: 3 AX/VMS Macro v04-00 Page 7 | RM 
RMSPUT1 = HIGH LEVEL SEQUENTIAL $PUT =-SEP-1984 RMS.SRCIR RMIPUT MAR: 1 (6) | v0é 
77-220 | 
OF 1 ++ 
77 ; : 
ore ; Error Processors: 
77 4 by | 
077 5 ;-- | 
144 § 
77 ERRSQO: 
Boe 8 RMSERR $00 ; seq output only and user 
FFB1" 31 Sore 0 ERROR: BRW RMSEXRMS 3 get out 
7F ; 
007F : ; If device is foreign or truncate is allowed 
007F 4; then set eof and continue | 
007F > 3 else error 
007F 6; 
007F 37 
18 EO OO7F 38 ERRNEF: BBS #DEVSV_F continue 
AB 6A 0081 239 IFBSL VBRIM. “DEV(RI0), PUTBLK if foreign 
0083 240 
0083 41 ; 
0083 g ; Not foreign - is truncate permitted ? | 
0083 43 ; 
0083 ste 
08 68) «21 E1 0083 45 BBC #RABSV_TPT+ROP, (R8) ,ERRNEF 1 3 no - real error 
9F 22 AA 04 £0 0087 346 BBS #F ABSV-TRN, IFB$B_FAC(R10),PUTBLK; yes - if truncate 
FF71" 31 poet rt' BRW RMSERRFAC ; else error in access 
OO8F 309 ERRNEF 1: | 
OO8F 50 RMSERR NEF 3 put not at end of file 
E6 11 0094 251 BRB ERROR 
0096 s2¢ 
0096 2535 ERRRAC: 
0096 254 RMSERR RAC ; bad record access value 
DF 11 0098 255 BRB ERROR 
009D 256 
009D 257 .END | 
| 
| 
i 


RMIPUT 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 


F 
IFBSL_EBK 
BSL_PRIM_DEV 
BSV~DAP 
$v—Sa0 


ROP 
TPT$L_PUT1 


po lololeleleleloleleleolelo) 


hnnnnnnnnnnnn “un 
oOoooooooo 


SEQUENTIAL SPECIFIC PUT 


WA—Oo]-0 


COOooooooooooCoooO 
COOOoCooooooo°oooo 

SOS OOO CCSOOOSOOOOOCOCOoO 

AVS &LUNVWO NNONONON—O— 

MD OO IGM LVL NAO W®NOOOMUINLS WOFrO 


00000044 


00000001 
00000004 
00000010 


eeeeraenre 
reekenraee 
00000000 
geeeeree 
gerkeerne 
rerereee 
rterereee 
ererraene 


00000020 


rerarenre 


RG 


<<a OM 


ooo 
— 


oOooc°oo 
nd od aad nd oe 


ooo 
od and od 


Oooooeeo 
— 3 See 


01 


Ig- 


SE 
SE 


p-198 


4 
4 


00: 
16: 


5 
2 


$335 


AX/VMS Macro V04-00 
RMS.SRCJRM1PUT.MAR; 1 


5 
RMIPUT SEQUENTIAL SPECIFIC PUT y sep: =138¢ 9 0:36: 32 
Psect synopsis 6:2 


PSECT name Allocation PSECT No. Attributes 

, OS ~ 00000000 <¢ r) 69 ' 0.) 

RMSRMS1 0000009D (¢ 15 1.) PIC USR CON REL GBL NOSHR 
SABSS 00000000 $3 2.) NOPIC USR CON ABS LCL NOSHR 


Gwoecececeseesecceoccesce$ 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.10 09:00:00.6 
Command processing 107 00:00:00.74 0:00:04.7 
Pass 1 292 00:00:08.64 00:00:25.34 
Symbol table sort 0 00:00:01.18 00:00:02.08 
Pass 2 59 00:00:01.64 00:00:04.04 
Symbol table output 8 00:00:00.07 00:00:00.12 
Psect synopsis output 2 00:00:00.03 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 499 00:00:12.40 00:00:36.79 


The working set Limit was 1350 pages. 

48436 bytes (95 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 979 non-local and 2 Local symbols. 
257 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


Macro Library name Macros defined 


-$255$DUA28: tf OBJIRMS.MLB;1 10 
“$255$DUA28:(SYS.OBJJLIB.MLB; 1 0 
“$255$DUA28: SYSL IBISTARLET. MLB; 2 5 
TOTALS (all libraries) 15 


1082 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMIPUT/OBJ=OBJ$:RMIPUT MSRC$:RMIPUT/UPDATE=(ENHS:RM1PUT) +EXECMLS/LIB+LIB$:RMS/LIB 
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NOPIC USR CON ABS LCL a NOEXE NORD NOWRT NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 
WhT NOVEC BYTE 
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